Description

Set interface whose methods will be called when there is a new message in the attached window message queue.

Syntax

object.SetMessageCallback(sink As Object)

Part	Description
object	The object is expression that evaluates to Window object
sink	Required. Object that implements IsgMessageSink interface.

Remarks

SG Window supports two methods  for message handling: standard events and callback interfaces. To receive messages through callback interface you must implement IsgMessageSink interface in the class or form module. When you have this interface implemented, enable message with EnableMessage method and subclass window with Hooked property.

Example

Following example shows how to implement and use IsgMessageSink interface in the class module:

' Declare interface
Implements IsgMessageSink

' SGWindow object
Private mWnd As SGWindow.Window

Private Sub Class_Initialize()
   ' Initialize SGWindow object
   Set mWnd = New SGWindow.Window
   mWnd.EnableMessage wm_MOUSEWHEEL
   mWnd.Hooked = True
   mWnd.SetMessageCallback Me
End Sub

' Message handler
Private Sub IsgMessageSink_Message(ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByRef result As Long)
   result = mWnd.CallWindowProc(msg, wParam, lParam)
End Sub